home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / programming / other / scm / slib / pp.scm < prev    next >
Text File  |  1999-04-19  |  376b  |  13 lines
  1. ;"pp.scm" Pretty-print
  2.  
  3. (require 'generic-write)
  4.  
  5. ; (pretty-print obj port) pretty prints 'obj' on 'port'.  The current
  6. ; output port is used if 'port' is not specified.
  7.  
  8. (define (pp:pretty-print obj . opt)
  9.   (let ((port (if (pair? opt) (car opt) (current-output-port))))
  10.     (generic-write obj #f 79 (lambda (s) (display s port) #t))))
  11.  
  12. (define pretty-print pp:pretty-print)
  13.